home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / demos / bits93.zip / CONVERT.BAS < prev    next >
BASIC Source File  |  1993-10-13  |  387b  |  14 lines
  1. 10 S$="123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ()',-.!:? "
  2. 20 OPEN "text" FOR INPUT AS #1
  3. 30 OPEN "message" FOR OUTPUT AS #2
  4. 40 PRINT #2,"message label word"
  5. 50 WHILE NOT(EOF(1))
  6. 60 LINE INPUT #1,A$
  7. 70 FOR I = 1 TO LEN(A$)
  8. 80 PRINT #2,CHR$(9);"dw "+STR$(INSTR(S$,MID$(A$,I,1)))+"*font_width*font_height + offset font_table"
  9. 90 NEXT
  10. 100 WEND
  11. 110 CLOSE #1
  12. 120 CLOSE #2
  13. 130 SYSTEM
  14.